home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / misc / mp3info.lha / MP3Info.p < prev   
Text File  |  1998-04-19  |  3KB  |  55 lines
  1. ; 
  2. ; 
  3. ; (c) 1998 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.  
  8.     {* String: Version="$VER: Mp3info (C) CYBORG 98"*}
  9.  
  10.     {* IncVar: Type,Art,Chunk,chunklaenge*}
  11.  
  12. Start:
  13.     OH=Output()
  14.     OK=GetFilename()
  15.     If (FH=Open(#Filename,#Mode_old))##0 {
  16.                                           Read(FH,#Chunk,4)
  17.                                           If Chunk##"FORM" ---> .error
  18.                                           Read(FH,#Chunklaenge,4)
  19.                                           Read(FH,#Type,4)
  20.                                           Read(FH,#Art,4)
  21.                                           If Type##"AIFF" or Art##"COMM" --> .error
  22.                                           Read(FH,#Chunklaenge,4)
  23.                                           Seek(FH,Chunklaenge,#Offset_Current)
  24.                                           Read(FH,#Chunk,4)
  25.                                           If Chunk##"SSND" --> .error
  26.                                           Read(FH,#Chunklaenge,4)
  27.                                           MP3laenge==Chunklaenge/11
  28.                                           Frames==mp3laenge/417
  29.                                           Zeit==Mp3laenge/2980
  30.                                           Minuten==Zeit/60
  31.                                           Sekunden==Minuten*60
  32.                                           Sekunden==Zeit-Sekunden
  33.                                           Write(OH,"\nLänge AIFF:   ",?)
  34.                                           Convertzahl(Chunklaenge,OH)
  35.                                           Write(OH," Bytes\nLänge MP3: ca.",?)
  36.                                           Convertzahl(Mp3laenge,OH)
  37.                                           Write(OH," Bytes \nFrames: ",?)
  38.                                           Convertzahl(Frames,OH)
  39.                                           Write(OH,"\nKonvertierdauer: ",?)
  40.                                           Convertzahl(Zeit,OH)
  41.                                           Write(OH," Sekunden\nZeit: ",?)
  42.                                           Convertzahl(Minuten,0)
  43.                                           Write(OH,#zahl,4)
  44.                                           Write(OH," Min. ",?)
  45.                                           Convertzahl(Sekunden,0)
  46.                                           Write(OH,#zahl,4)
  47.                                           Write(OH," Sek.\n\n",?)
  48.                                           Close(FH)
  49.                                          }
  50.     RTS
  51. .error:
  52.     Write(OH,"Kein AIFF oder falscher Typ!\n",?)
  53.     Close(FH)
  54.     RTS
  55.